home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / N-O / Notes.cpt / Notes on Notes / card_6986.txt < prev    next >
Text File  |  1988-04-15  |  2KB  |  93 lines
  1. -- card: 6986 from stack: in
  2. -- bmap block id: 7694
  3. -- flags: 0000
  4. -- background id: 2729
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closecard
  8.   visual dissolve slowly
  9. end closecard
  10.  
  11.  
  12.  
  13. -- part 2 (field)
  14. -- low flags: 80
  15. -- high flags: 0002
  16. -- rect: left=287 top=227 right=342 bottom=437
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 3
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: Tom1
  25. ----- HyperTalk script -----
  26.  
  27. on openfield
  28.   if the optionKey is down then
  29.     set lockscreen to true
  30.     choose button tool
  31.     get loc of target
  32.     subtract 72 from item 2 of it
  33.     subtract 72 from item 1 of it
  34.     click at it
  35.     domenu "Clear Button"
  36.     choose field tool
  37.     get loc of target
  38.     click at it
  39.     domenu "Clear Field"
  40.     choose browse tool
  41.     set lockscreen to false
  42.   end if
  43.   wait 10 ticks
  44.   if the mouse is down then
  45.     repeat until the mouse is up
  46.       set the loc of the target to the mouseLoc
  47.       get the loc of target
  48.       subtract 72 from item 2 of it
  49.       subtract 72 from item 1 of it
  50.       set the loc of button Tom1 to it
  51.     end repeat
  52.   end if
  53. end openfield
  54.  
  55.  
  56. -- part 3 (button)
  57. -- low flags: 00
  58. -- high flags: 0002
  59. -- rect: left=287 top=227 right=233 bottom=293
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Tom1
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   Set the visible of card field id 2 to not the visible of card field id 2
  71. end mouseUp
  72.  
  73.  
  74. -- part contents for background part 1
  75. ----- text -----
  76.  
  77.  
  78. Peter Martori
  79.  605 W. Montebello
  80. Phoenix, AZ  85013
  81.  
  82. P. Martori on GEnie
  83. 72437,3146 on Compuserve
  84.  
  85.  
  86. Use any of my hybrids as you wish.  Please acknowledge the original creators if you pass then on.
  87.  
  88. -- part contents for card part 2
  89. ----- text -----
  90.  
  91. the 24pt font used in this stack is 
  92. "Broadway".  It came with my hard drive 
  93. w/o documentation.